Carousel/CAROUSEL.cdr/mactosh/hc/visualou.sit/Visual Outliner/stack.txt

Text File | 1988-02-10 | 5KB | 176 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2602
-- card count: 5
-- first card id: 2946
-- list block id: 2289
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 8
-- free size: 8064 bytes
-- total size: 24576 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
On mouseUp
  if the target contains "button" then
    get short name of the target
    put word 2 of it into colNum
    toDetail colNum
  end if
end mouseUp

on toDetail colNum
  global totalDays

  put "column" & colNum + 1 into columnName
  get rect of the target
  put 1 + (item 2 of the clickLoc - item 2 of it) div 16 into lineNum
  put line lineNum of field columnName into detailName
  if detailName is empty then exit toDetail

  get short name of bkgnd
  put it into bkgndName
  if it is "Overview" then put 7 into colSize else put 3 into colSize

  put line lineNum + colNum * colSize of field "Table" into detailCard
  if detailCard is not empty then
    visual effect iris open
    go to detailCard
    exit toDetail
  end if

  answer "Do you want a detail card for this item?" with "Yes" or "No"
  if it is "No" then exit toDetail

  get short name of this card
  put it into linkBack
  put field "Project Name" into projectName
  put line lineNum of field columnName into taskName
  if bkgndName is "Overview" then
    put line 2 of field ("Date" & colNum + 1) into date
    put word 2 of field ("Day Number" & colNum + 1) into dayNumber
  else
    put field "Date" into date
    put field "Day Number" into daynumber
  end if

  if lineNum is 1
  then go to card "Detail Template"
else go to line (lineNum + colNum * colSize) - 1 of field Table
domenu "New Card"

put projectName into field "Project Name"
put date into field "Date"
put dayNumber into field "Day Number"
put taskName into field "Task Name"
put totalDays into field "Days Total"
put linkBack into field "LinkBack"

get name of this card
put it into detailCard

set lockScreen to true
go to linkBack
put detailCard into line lineNum + colNum * colSize of field "Table"
go to detailCard

end toDetail

on newStack
  global totalDays,project,start,ending

  set lockScreen to true
  domenu "Paste Card"
  go to first card
  set lockScreen to false

  put start into currSeconds
  put 24*60*60 into dayLength
  put ending into endDate
  convert endDate to short Date

  repeat with whichDay = 0 to totalDays - 1
    if whichDay mod 5 is 0 then
      if whichDay > 0 then domenu "New Card"
      put project into field "Project Name"
      get currSeconds
      convert it to short date
      put it into field "Start Date"
      put endDate into field "End Date"
      put (totalDays div 5) + 1 into field "Total Pages"
      put (whichDay div 5) + 1 into field "This Page"
    end if

    put "Day Number" & (whichDay mod 5) + 1 into fieldName
    put "Day" & whichDay + 1 into field fieldName

    put "Date" & (whichDay mod 5) + 1 into fieldName
    get currSeconds
    convert it to long date
    put item 1 of it into line 1 of field fieldName
    convert it to short date
    put it into line 2 of field fieldName

    add dayLength to currSeconds
  end repeat
end newStack